* lisp/net/ange-ftp.el: Fix problem pointed out by compiler warning

(ange-ftp-fix-name-for-bs2000): Remove redundant `boundp` test.

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index fa13dd57d1d479da3a553899f614d9259b8f55f1..d27eeab82b1202ed2b1e21bf7ebe3df430757cd3 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -6111,8 +6111,7 @@ Other orders of $ and _ seem to all work just fine.")
                                       (1- (match-end 2)))))
                (filename (if (match-beginning 3)
                              (substring name (match-beginning 3)))))
-           (if (and (boundp 'filename)
-                    (stringp filename)
+           (if (and (stringp filename)
                     (string-match "[#@].+" filename))
                (setq filename (concat ange-ftp-bs2000-special-prefix
                                       (substring filename 1))))